home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / comm2 / zpont311.lha / zpoint-3.11 / Rexx / ArchivPMs.zprx < prev    next >
Text File  |  1995-03-09  |  969b  |  48 lines
  1. /* $VER: ArchivPMs.zp 1.0 (23.04.94), ©1994 by Jean-Marie de Crozals
  2.  
  3.    Leitet PMs in Brett mit konfigurierbarem Namen weiter... */
  4.  
  5.  
  6. user = 'jeannot@#?'
  7. brett = 'Persönliches Nachrichtenarchiv'
  8.  
  9. parse arg zpPort /* Holt sich den Portnamen aus der Befehlszeile */
  10.  
  11. address value zpPort /* Kommandos von ZP benutzen können */
  12. options results /* Resultate werden in "result" übergeben */
  13.  
  14. WHICHLEVEL
  15. if (result ~= 'BOARD') then
  16.   do
  17.   if (result ~= 'BOARDMENU') then
  18.     BOARDMENU
  19.   JUMPTOBOARD 3 /* PM-Brett */
  20.   ENTERBOARD
  21.   end
  22.  
  23. JUMPTOMESSAGE 1
  24. downrc = rc
  25. jumprc = 1
  26.  
  27.   do while (jumprc & downrc)
  28.   JUMPTOMESSAGE NAME '"'user'"'
  29.   jumprc = rc
  30.   
  31.   if (jumprc) then
  32.     do
  33.     MESSAGEINFO SUBJECT
  34.     inforesult = left(result,2)
  35.  
  36.     if inforesult = 'Re' then
  37.       do
  38.       FORWARDMESSAGE '"'brett'" INTERNAL'
  39.       if (~rc) then
  40.         REQUESTNOTIFY 'Konnte Nachricht nicht weiterleiten!'
  41.       else
  42.         DELETE ONE
  43.       end
  44.     end
  45.   DOWN
  46.   downrc = rc
  47.   end
  48.